home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok58.lha / CheckTime / CheckTime.mod < prev    next >
Text File  |  1993-08-15  |  674b  |  33 lines
  1. MODULE CheckTime;
  2.  
  3. IMPORT d := Dos, arg: Arguments;
  4.  
  5. VAR
  6.   date: d.DateTime;
  7.   from, to : d.DatString;
  8.  
  9. BEGIN
  10.   IF d.dos.lib.version<36 THEN HALT(20) END;
  11.   NEW(date.strTime);
  12.   IF date.strTime=NIL THEN HALT(20) END;
  13.   IF arg.NumArgs()#2 THEN
  14.     d.PrintF("Usage: CheckTime <from> <to>\n");
  15.   ELSE
  16.     arg.GetArg(1,from);
  17.     arg.GetArg(2,to);
  18.     d.DateStamp(date);
  19.     IF d.DateToStr(date) THEN
  20.       IF from < to THEN
  21.         IF (from < date.strTime^) AND (date.strTime^ < to) THEN
  22.           HALT(d.warn)
  23.         END;
  24.       ELSE
  25.         IF (from < date.strTime^) OR (date.strTime^ < to) THEN
  26.           HALT(d.warn)
  27.         END;
  28.       END;
  29.     END;
  30.   END;
  31. END CheckTime.
  32.  
  33.